home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POV302 / SCENES / MATH / PARTORUS.POV < prev    next >
Encoding:
Text File  |  1993-09-27  |  1.2 KB  |  60 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Alexander Enzmann
  4.  
  5. /* sample quartic scene file written by Alexander Enzmann */
  6.  
  7. #include "colors.inc"
  8. #include "shapes.inc"
  9. #include "textures.inc"
  10.  
  11. /* Parabolic Torus having major radius sqrt(40), minor radius sqrt(12) */
  12. quartic {
  13.    < 1.0,  0.0,  0.0,   0.0,    2.0,  0.0,  0.0,  0.0, -2.0, -104.0,
  14.      0.0,  0.0,  0.0,   0.0,    0.0,  0.0,  0.0,  0.0,  0.0,   0.0,
  15.      1.0,  0.0,  0.0,   0.0,   -2.0, 56.0,  0.0,  0.0,  0.0,   0.0,
  16.      0.0,  0.0,  1.0, 104.0,  784.0 >
  17.  
  18.    scale 0.7
  19.  
  20.    bounded_by { sphere { <0, 0, 0>, 40 } }
  21.  
  22.    texture {
  23.       pigment { Red }
  24.       finish {
  25.          phong 1.0
  26.          phong_size 20
  27.       }
  28.    }
  29.    rotate 120*x
  30.    rotate -30*y
  31.    translate 40*z
  32. }
  33.  
  34. /* Put down a floor */
  35. plane {
  36.    y, -20.0
  37.  
  38.    texture {
  39.       pigment {
  40.          Blue_Agate
  41.          scale 20
  42.       }
  43.       finish {
  44.          ambient 0.5
  45.          diffuse 0.5
  46.       }
  47.    }
  48. }
  49.  
  50. camera {
  51.    location  <0.0, 0.0, -20.0>
  52.    direction <0.0, 0.0,  1.0>
  53.    up        <0.0, 1.0,  0.0>
  54.    right     <4/3, 0.0,  0.0>
  55. }
  56.  
  57. light_source { <200, 30, -300> colour White }
  58.  
  59. light_source { <-200, 30, -300> colour White }
  60.